disp4 Subroutine

public subroutine disp4(in_pa, ptet, xnr, yn2)

Uses

!!! pn=fn1(pa,fnr) pn=fn2(pa,fnr,fnrr) !!!!!!!!!!!!!!!!!!!!!!!!!!!!! dl=bs2-4d0asbs

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: in_pa
real(kind=wp), intent(in) :: ptet
real(kind=wp), intent(inout) :: xnr
real(kind=wp), intent(in) :: yn2